home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / 2002copy.txt < prev    next >
Encoding:
Text File  |  1996-03-07  |  1.3 KB  |  37 lines
  1. If newtitle = TRUE then
  2. Eval("EraseDisplay(@" ^ title number ^ ")")
  3. Title number = "2002"
  4. Company = "Sega"
  5. title = "Genesis Hardware with NFL Game Pack"
  6. Price = 119.99
  7. Demo = false
  8. Button1 = "Genesis System with Super Sonic Bundle - $129.99."
  9. Button2 = "Genesis System with Free Software 6-Pack - $129.99."
  10. Button3 = false
  11. Button4 = false
  12. system = "Genesis"
  13. Title Description = "The system rabid sports enthusiasts will be cheering for! Includes 16-bit
  14. Genesis System, 1 controller, AC Adaptor, and Auto RF Switchbox plus NFL game pack."
  15.  
  16. -----------------------------------
  17. dline = ""
  18. counter = 0
  19. repeat while dline <> title number
  20. counter = counter + 1
  21. dline = GetWord(1, GetLine(titl,counter))
  22. test(dline = title number, LineInTitle = counter)
  23. end repeat
  24. starttitle = LineInTitle
  25. num of titles shown = 6
  26. endtitle = starttitle + num of titles shown - 1
  27. titles = ""
  28. title highlight = ""
  29. repeat with counter = starttitle to endtitle
  30. nextline = GetLine(titl, counter)
  31. titles = titles ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return
  32. title highlight = Test(title number = GetWord(1, nextline), titlehighlight ^ SubStr(nextline, 6,
  33. CharCount(nextline)) ^ Return, title highlight ^ Return)
  34. end repeat
  35. dpage = CurrentPageID
  36. newtitle = FALSE
  37. end if